home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -screenplay- / shareware / taskforce / install_taskforce < prev    next >
Text File  |  1999-01-25  |  2KB  |  108 lines
  1. ; $VER: Install_TaskForce 1.10 (02.01.99)
  2.  
  3. (complete 0)
  4.  
  5. ; version check
  6. (if (< (/ (getversion) 65536) 37)
  7.     (abort "You must be using Kickstart 2.04 or higher to run TaskForce.")
  8. )
  9.  
  10. (welcome)
  11.  
  12. (set @default-dest
  13.     (askdir
  14.         (prompt "Please choose a directory where to install the game. A directory named \"TaskForce\" will be created.")
  15.         (help @askdir-help)
  16.         (default @default-dest)
  17.     )
  18. )
  19.  
  20. (complete 10)
  21.  
  22. (set #missions 63)    ; default selected missions
  23. (if (> @user-level 1)
  24.     (set #missions
  25.         (askoptions
  26.             (prompt "Select the missions you wish to install.")
  27.             (help (cat
  28.                 "It is recommended to install all missions.\n\n"
  29.                 "The number in brackets indicates whether it is a "
  30.                 "scenario for one or two human players."
  31.             ))
  32.             (choices "First Contact (1)" "Hide & Seek (1)" "Plasma! (1)" "Prison (1)" "Project: Pygmalion (1)" "Urban Combat (2)")
  33.             (default #missions)
  34.         )
  35.     )
  36. )
  37.  
  38. (complete 20)
  39.  
  40. (set #instdir (tackon @default-dest "TaskForce") )
  41.  
  42. (makedir #instdir (infos))
  43. (makedir (tackon #instdir "Briefings"))
  44. (makedir (tackon #instdir "Games"))
  45. (makedir (tackon #instdir "Missions"))
  46. (makedir (tackon #instdir "Missions/OnePlayer"))
  47. (makedir (tackon #instdir "Missions/TwoPlayers"))
  48.  
  49. (complete 30)
  50.  
  51. (copyfiles
  52.     (prompt "Copying game files...")
  53.     (help @copyfiles-help)
  54.     (source "")
  55.     (dest #instdir)
  56.     (choices "TaskForce" "Editor" "Data" "Docs" "Briefings.info")
  57.     (infos)
  58. )
  59.  
  60. (complete 65)
  61.  
  62. (working "\n\n\nTaskForce is now installing the mission files...")
  63.  
  64. (set n 0)
  65. (while
  66.     (set #missionfiles
  67.         (select n
  68.             "OnePlayer/First Contact"
  69.             "OnePlayer/Hide & Seek"
  70.             "OnePlayer/Plasma"
  71.             "OnePlayer/Prison"
  72.             "OnePlayer/Pygmalion"
  73.             "TwoPlayers/Urban Combat"
  74.             ""
  75.         )
  76.     )
  77. (
  78.     (if (IN #missions n)
  79.         (
  80.             (copyfiles
  81.                 (source "Missions/")
  82.                 (dest (pathonly (tackon (tackon #instdir "Missions/") #missionfiles) ) )
  83.                 (choices (cat #missionfiles ".mission"))
  84.                 (nogauge)
  85.             )
  86.             (copyfiles
  87.                 (source "Briefings/")
  88.                 (dest (tackon #instdir "Briefings"))
  89.                 (choices (fileonly #missionfiles))
  90.                 (infos)
  91.                 (nogauge)
  92.             )
  93.         )
  94.     )
  95.     (set n (+ n 1))
  96.     (complete (+ 65 (* n 4)))
  97. ))
  98.  
  99. (copylib
  100.     (prompt "Installing reqtools.library")
  101.     (help @copylib-help)
  102.     (source "Libs/reqtools.library")
  103.     (dest "LIBS:")
  104.     (confirm)
  105. )
  106.  
  107. (complete 100)
  108.